       ID Division.
       Program-ID. A1905.
       Environment Division.
       Data Division.
       01  summe pic 9(10) VALUE 0.
       01  summe-out pic z(9)9.
       01  zahl pic 9(10).
       01  mittelwert pic 9(10)V99 VALUE 0.
       01  mittelwert-out pic z(9)9.99.
       01  zahler pic 999 VALUE 0.
       01  min1 pic 9(9) VALUE 999999999.
       01  max1 pic 9(9) VALUE 0.
       01  min-out pic z(9)9.
       01  max-out pic z(9)9.
       Procedure Division.
       main.
           perform eingabe
           perform ausgabe
           stop run.
       eingabe.
           perform with test after until zahl = 0
           display 'Gib eine Zahl zum addieren ein: 0 zum Beenden'
           upon console
           accept zahl from console
           add 1 to zahler
           add zahl to summe
           if zahl > max1
           move zahl to max1
           end-if
           if zahl < min1 and zahl NOT = 0
           move zahl to min1
           end-if
           end-perform
           move summe to mittelwert
           divide mittelwert by zahler giving mittelwert-out
           move summe to summe-out
           move min1 to min-out
           move max1 to max-out.

       ausgabe.
           display 'Die Summe aller Zahlen ist: ' summe-out upon console
           display '